home *** CD-ROM | disk | FTP | other *** search
- object ToothDate: TToothDate
- Left = 200
- Top = 99
- BorderStyle = bsDialog
- Caption = 'Tooth Date'
- ClientHeight = 112
- ClientWidth = 266
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnActivate = FormActivate
- TextHeight = 16
- object Label1: TLabel
- Left = 32
- Top = 24
- Width = 41
- Height = 19
- Caption = 'Date:'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Date: TMaskEdit
- Left = 80
- Top = 24
- Width = 121
- Height = 24
- EditMask = '!99-99-00;1;_'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 8
- ParentFont = False
- TabOrder = 0
- Text = ' - - '
- end
- object OKBtn: TBitBtn
- Left = 56
- Top = 64
- Width = 93
- Height = 31
- Caption = 'Ok'
- Default = True
- Font.Color = clGreen
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ModalResult = 1
- ParentFont = False
- TabOrder = 1
- OnClick = OKBtnClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000D80E00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555205555555555555222055555555555522205555
- 5555555222220555555555222222055555555722052220555555720555522055
- 5555555555522205555555555555220555555555555552205555555555555572
- 0555555555555557205555555555555552205555555555555555}
- Margin = 8
- Spacing = -1
- end
- object CancelBtn: TBitBtn
- Left = 160
- Top = 64
- Width = 93
- Height = 31
- Font.Color = clRed
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- OnClick = CancelBtnClick
- Kind = bkCancel
- Margin = 2
- Spacing = -1
- end
- object HelpBtn: TBitBtn
- Left = 8
- Top = 64
- Width = 25
- Height = 31
- Caption = ' '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- OnClick = HelpBtnClick
- Kind = bkHelp
- Margin = 2
- Spacing = -1
- end
- end
-